home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0074 / demomini.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1983-08-30  |  2.0 KB  |  61 lines
  1. {This demo program demostrates the usage of several functions in the }
  2. {'MINI.OBJ' file                                                     }
  3. {$debug-}
  4. program demomini( input, output );
  5. var
  6.   dice, i, screennum, page, numcol, row, column, start, stop : integer;
  7.   freq[static] : array[ 1 .. 8 ] of integer;
  8.  
  9. value    { initialize the frequency array }
  10.   freq[ 1 ] := 523; freq[ 2 ] := 587; freq[ 3 ] := 659; freq[ 4 ] := 698;
  11.   freq[ 5 ] := 784; freq[ 6 ] := 880; freq[ 7 ] := 988; freq[ 8 ] := 1046;
  12.  
  13. {$include:'b:mini.inc'}
  14. begin
  15.   screennum := SCREENMODE( page, numcol );  { get the satus of current screen }
  16.   if screennum = 7 then
  17.     SCREEN(7)                    {clear the monochrome screen}
  18.   else
  19.     SCREEN(4);                  {set the graphics mode so that we }
  20.                       {can use the WRITEDOT procedure later}
  21.   screennum := SCREENMODE( page, numcol );  { get the satus of current screen }
  22.   READCURSOR(page, row, column, start, stop); {get the cursor status }
  23.   writeln('Cursor at row=',row:2,' column=',column:2, ' start=',start:3,
  24.                  ' stop=',stop:3);
  25.   writeln;
  26.  
  27.   writeln('Screen mode =', screennum:3, '  Page=', page:3,
  28.       ' Number_of_column=', numcol:3);
  29.  
  30.   writeln;
  31.   writeln;
  32.   writeln('Memory =',  NUMMEMORY : 5,'KB');
  33.                 { call the function 'NUMMEMORY' ot get RAM size}
  34.  
  35.   writeln;
  36.   writeln('Simulating a dice:');
  37.   for i := 1 to 40 do begin
  38.     dice := ( RND mod 6 ) + 1;               {RND returns a random number }
  39.                         {  in the range 0 to 65535 }
  40.     write(dice:2);
  41.   end;
  42.  
  43.   writeln;
  44.   if screennum <> 7 then begin      { No graphics for Monochrome display (mode=7)}
  45.     for i := 0 to 199 do
  46.       WRITEDOT(i, i, i mod 4);
  47.     for i := 0 to 4 do
  48.       writeln('Color at (', i:1, ',', i:1, ')=',  READDOT(i, i) : 3);
  49.   end
  50.   else
  51.     writeln('Can not display graphics on the monochrome monitor');
  52.  
  53.   for i := 1 to 8 do
  54.     SOUND( freq[i], 100 );     { one second for each note }
  55.  
  56.   SOUND(0, 100);           { silence for one second }
  57.  
  58.   for i := 8 downto 1 do
  59.     SOUND( freq[i], 50 );     { half second for each note }
  60. end.
  61.